home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / mslang / mfcvbx / bigicon.cp_ / bigicon.cp
Encoding:
Text File  |  1993-10-01  |  9.9 KB  |  443 lines
  1. //
  2. // $Id$
  3. //
  4. // Program    :     BigIcon.cpp
  5. //
  6. // Author    :     James Bish
  7. //
  8. // Date        :     06/02/93
  9. //
  10. // Purpose    :     To create a BigIcon custom control (vbx) for Visual
  11. //                Basic.
  12. // $Log$
  13. //
  14. // Copyright (c) Bish Programming 1993 - All Rights Reserved.
  15. //
  16.  
  17. #include "stdafx.h"
  18.  
  19. //
  20. // Methods for the Popup Window.
  21. //
  22.  
  23. myPopupWnd::myPopupWnd(CVBCtlWnd *pCtl, USHORT iProperty) 
  24.     : CVBPopupWnd(pCtl, iProperty) 
  25. {
  26. }
  27.  
  28. // 
  29. // Create the control window.
  30. //
  31. IMPLEMENT_DYNCREATE(myCtlWnd, CVBCtlWnd)
  32.                                
  33. myCtlWnd::myCtlWnd()
  34. {
  35. }
  36.                               
  37. myCtlWnd::myCtlWnd(HWND hwnd)
  38. {
  39.     CVBCtlWnd::CVBCtlWnd(hwnd);
  40. }
  41.  
  42.  
  43. //
  44. // The CVBDLL derived application object.
  45. //
  46. myVBDLL theApp;          
  47.  
  48. //
  49. // myVBDLL::InitInstance()
  50. //
  51. // Perform one time initialization here, eg. (register the visual basic
  52. // control models.
  53. //
  54. BOOL myVBDLL::InitInstance()  
  55. {   
  56.     SetPopupWnd(FALSE); 
  57.     
  58.     //
  59.     // Add the VB Control Model.
  60.     //
  61.     
  62.     AddModel("BigIcon", 0,CS_VREDRAW | CS_HREDRAW, 0, sizeof(BigIcon),
  63.         IDBMP_BIGICON, NULL, IPROP_BIGICON_CTLNAME,
  64.         IEVENT_BIGICON_CLICK, -1, RUNTIME_CLASS(myCtlWnd)); 
  65.  
  66.     //
  67.     // Add the standard properties.
  68.     //
  69.         
  70.     AddProperty("BigIcon", PPROPINFO_STD_CTLNAME );
  71.     AddProperty("BigIcon", PPROPINFO_STD_INDEX );
  72.     AddProperty("BigIcon", PPROPINFO_STD_LEFT );
  73.     AddProperty("BigIcon", PPROPINFO_STD_TOP );
  74.     AddProperty("BigIcon", PPROPINFO_STD_WIDTH );
  75.     AddProperty("BigIcon", PPROPINFO_STD_HEIGHT );
  76.     AddProperty("BigIcon", PPROPINFO_STD_VISIBLE );
  77.     AddProperty("BigIcon", PPROPINFO_STD_PARENT );
  78.     AddProperty("BigIcon", PPROPINFO_STD_DRAGMODE );
  79.     AddProperty("BigIcon", PPROPINFO_STD_DRAGICON );
  80.     AddProperty("BigIcon", PPROPINFO_STD_TAG );
  81.     AddProperty("BigIcon", PPROPINFO_STD_HWND );
  82.     AddProperty("BigIcon", PPROPINFO_STD_BACKCOLOR );
  83.     
  84.     //
  85.     // Add custom properties.
  86.     //
  87.         
  88.     AddProperty("BigIcon", "Picture",
  89.         DT_PICTURE | PF_fGetData | PF_fSetCheck | PF_fSetData |
  90.         PF_fSaveData | PF_fSetMsg, OFFSETIN(BigIcon,hpicPict));
  91.     
  92.     AddProperty("BigIcon", "ShadowWidth", 
  93.         DT_SHORT | PF_fGetData | PF_fSetMsg | PF_fSetData | PF_fSaveData,
  94.         OFFSETIN(BigIcon, ShadowWidth));
  95.     
  96.     AddProperty("BigIcon", "ShadowColor", 
  97.         DT_COLOR | PF_fGetData | PF_fSetMsg | PF_fSetData | PF_fSaveData,
  98.         OFFSETIN(BigIcon, ShadowColor));
  99.         
  100.     AddProperty("BigIcon", "(About)",
  101.         DT_BOOL | PF_fGetData | PF_fSetMsg | PF_fSaveData | PF_fGetHszMsg,
  102.         OFFSETIN(BigIcon, About));
  103.     
  104.     //
  105.     // Add standard events.
  106.     //
  107.                 
  108.     AddEvent("BigIcon", PEVENTINFO_STD_CLICK );
  109.     AddEvent("BigIcon", PEVENTINFO_STD_DRAGDROP );
  110.     AddEvent("BigIcon", PEVENTINFO_STD_DRAGOVER );
  111.        
  112.     return TRUE;
  113. } 
  114.  
  115. //
  116. // Message map for myCtlWnd
  117. //
  118. BEGIN_MESSAGE_MAP(myCtlWnd, CVBCtlWnd)
  119.     ON_WM_PAINT()
  120.     ON_WM_CREATE() 
  121.     ON_WM_NCDESTROY()
  122.         
  123.     ON_MESSAGE(VBM_SETPROPERTY,OnVBSetProperty)
  124.     ON_MESSAGE(VBM_CHECKPROPERTY, OnVBCheckProperty)
  125.     ON_MESSAGE(VBM_GETPROPERTYHSZ, OnVBGetPropertyHsz)
  126.     ON_MESSAGE(VBM_INITPROPPOPUP, OnVBInitPropPopup)
  127. END_MESSAGE_MAP()
  128.  
  129. //
  130. // myCtlWnd::OnPaint()
  131. //
  132. // Handle painting of the control.
  133. //
  134. void myCtlWnd::OnPaint()
  135. {    
  136.     CPaintDC     *pDC = new CPaintDC(this); // device context for painting
  137.     HPIC        hpic;    
  138.     PIC            pic;
  139.     CRect         rect;
  140.     GetClientRect(rect);
  141.                 
  142.     int         cxClient = rect.Width();
  143.     int         cyClient = rect.Height();
  144.     COLORREF     ShadowColor = (COLORREF)LpBigIconDEREF(m_hCtl)->ShadowColor;
  145.     int            ShadowWidth = (int)LpBigIconDEREF(m_hCtl)->ShadowWidth;
  146.  
  147.     //
  148.     // Fill the window with the color of the parent window.
  149.     //
  150.         
  151.     CBrush *cBr;
  152.     
  153.     cBr = CBrush::FromHandle( (HBRUSH) 
  154.         GetParent()->SendMessage(WM_CTLCOLOR,(WPARAM)pDC->m_hDC, 
  155.         MAKELONG(m_hWnd,0)));               
  156.     pDC->FillRect(rect, cBr);
  157.  
  158.     //
  159.     // Draw the border around the window.
  160.     //
  161.         
  162.     CPen pen;
  163.     pen.CreateStockObject(BLACK_PEN);
  164.     CPen* pPenOld = pDC->SelectObject(&pen);
  165.     pDC->Rectangle(0, 0, cxClient-ShadowWidth, cyClient-ShadowWidth);
  166.     if (pPenOld) {
  167.         pDC->SelectObject(pPenOld);
  168.         pen.DeleteObject();
  169.     }            
  170.     
  171.     //
  172.     // draw shadows around icon
  173.     //
  174.     CBrush br;
  175.     br.CreateSolidBrush(ShadowColor);
  176.     rect.SetRect(cxClient-ShadowWidth, ShadowWidth, cxClient, cyClient);
  177.     pDC->FillRect(rect, &br);
  178.     rect.SetRect(ShadowWidth, cyClient-ShadowWidth, cxClient, cyClient);
  179.     pDC->FillRect(rect, &br);
  180.  
  181.     //
  182.     // Get the picture.
  183.     //
  184.     
  185.     hpic = LpBigIconDEREF(m_hCtl)->hpicPict;
  186.     
  187.     //
  188.     // Set the palette.
  189.     //
  190.     
  191.     if( VBGetVersion() >= VB200_VERSION ) 
  192.         VBGetPicEx(hpic, &pic, VB_VERSION );
  193.     else {
  194.         pic.picData.bmp.hpal = NULL;
  195.         VBGetPic(hpic, &pic );
  196.     }
  197.     
  198.     //
  199.     // Draw the picture.
  200.     //
  201.     
  202.     switch( pic.picType ) {    
  203.         case PICTYPE_BITMAP: {
  204.                 BITMAP bitmap;                
  205.                 GetObject(pic.picData.bmp.hbitmap, sizeof(BITMAP),
  206.                     (LPSTR)&bitmap);
  207.                     
  208.                 CDC dcMem;
  209.                 if( !dcMem.CreateCompatibleDC(pDC))
  210.                     break;
  211.                     
  212.                 dcMem.SelectObject(pic.picData.bmp.hbitmap);
  213.  
  214.                 pDC->StretchBlt(2, 2, cxClient-ShadowWidth-ShadowWidth, 
  215.                     cyClient-ShadowWidth-ShadowWidth,
  216.                     &dcMem, 0, 0, bitmap.bmWidth, bitmap.bmHeight, SRCCOPY);                
  217.             }    
  218.             break;
  219.             
  220.         case PICTYPE_ICON: {
  221.                 // draw icon into off-screen bitmap
  222.                 int cxIcon = ::GetSystemMetrics(SM_CXICON);
  223.                 int cyIcon = ::GetSystemMetrics(SM_CYICON);
  224.             
  225.                 CBitmap bitmap;
  226.                 if( !bitmap.CreateCompatibleBitmap(pDC,cxIcon,cyIcon))
  227.                     break;
  228.                 
  229.                 CDC dcMem;
  230.                 if( !dcMem.CreateCompatibleDC(pDC))
  231.                     break;
  232.                 
  233.                 dcMem.SelectObject(&bitmap);
  234.             
  235.                 dcMem.StretchBlt(0,0, cxIcon, cyIcon, pDC,
  236.                     2, 2, cxClient-ShadowWidth-ShadowWidth, 
  237.                     cyClient-ShadowWidth-ShadowWidth, 
  238.                     SRCCOPY);
  239.                 
  240.                 dcMem.DrawIcon(0,0,pic.picData.icon.hicon);                                                                
  241.         
  242.                 pDC->StretchBlt(2, 2, cxClient-ShadowWidth-ShadowWidth, 
  243.                     cyClient-ShadowWidth-ShadowWidth,
  244.                     &dcMem, 0, 0, cxIcon, cyIcon, SRCCOPY);
  245.             }
  246.             break;    
  247.  
  248.         case PICTYPE_METAFILE: {
  249.                 pDC->SetMapMode(MM_ANISOTROPIC);
  250.                 pDC->SetWindowExt(1000,1000);
  251.                 pDC->SetWindowOrg(-2,-2);
  252.                 pDC->SetViewportExt(cxClient-ShadowWidth,cyClient-ShadowWidth);        
  253.                 pDC->PlayMetaFile((HMETAFILE) pic.picData.wmf.hmeta);   
  254.             }                    
  255.             break;
  256.                         
  257.         case PICTYPE_NONE:
  258.             break;
  259.     }
  260.     
  261.     delete pDC;
  262. }
  263.  
  264. //
  265. // myCtlWnd::OnVBSetProperty
  266. //
  267. // Handle changes in the user properties of the control
  268. //
  269. LRESULT myCtlWnd::OnVBSetProperty(WPARAM wp, LPARAM lp)
  270. {
  271.     switch( wp ) {
  272.         case IPROP_BIGICON_BKCOLOR: 
  273.             InvalidateRect(NULL, TRUE );
  274.             return( 0L );
  275.             
  276.         case IPROP_BIGICON_SHADOWCOLOR:
  277.             LpBigIconDEREF(m_hCtl)->ShadowColor = (COLORREF)lp;
  278.             InvalidateRect( NULL, TRUE );
  279.             return( 0L );
  280.             
  281.         case IPROP_BIGICON_SHADOWWIDTH:
  282.             LpBigIconDEREF(m_hCtl)->ShadowWidth = (SHORT) lp;
  283.             InvalidateRect( NULL, TRUE );
  284.             return( 0L );
  285.     }
  286.  
  287.     //
  288.     // Return the parent function.
  289.     //
  290.     
  291.     return CVBCtlWnd::OnVBSetProperty(wp, lp);
  292. }
  293.  
  294. //
  295. // myCtlWnd::OnVBCheckProperty
  296. //
  297. // Force a repaint of the control if any of the property values
  298. // changes
  299. //
  300. LRESULT myCtlWnd::OnVBCheckProperty(WPARAM wp, LPARAM lp )
  301. {                 
  302.     switch( wp ) {
  303.         case IPROP_BIGICON_PICT:
  304.             InvalidateRect( NULL, TRUE);
  305.             return( 0L );
  306.     }
  307.  
  308.     //
  309.     // Call the parent method.
  310.     //
  311.              
  312.     return CVBCtlWnd::OnVBCheckProperty(wp, lp);         
  313. }                
  314.  
  315. //
  316. // myCtlWnd::OnVBGetPropertyHsz
  317. //
  318. // Force the string for the About Box message.
  319. //
  320. LRESULT myCtlWnd::OnVBGetPropertyHsz(WPARAM wp, LPARAM lp)
  321. {
  322.     switch( wp ) {
  323.          case IPROP_BIGICON_ABOUT:    
  324.              HSZ        the_hsz;
  325.              
  326.              the_hsz = ::VBCreateHsz((HANDLE) _FP_SEG(m_hCtl), 
  327.                  "Click on \"...\" for About Box");
  328.             _fmemcpy( (LPSTR *)lp, (LPSTR *) &the_hsz, sizeof(HSZ));
  329.             return( 0L );            
  330.         break;
  331.     }
  332.                 
  333.     //
  334.     // Call the parent method.
  335.     //
  336.     
  337.     return CVBCtlWnd::OnVBGetPropertyHsz(wp, lp);
  338. }                
  339.  
  340. //
  341. // myCtlWnd::OnVBInitPropPopup
  342. //
  343. // Create a window and pass a handle back to visual basic.  This
  344. // must be done to display dialog boxes in Visual Basic.
  345. //
  346. LRESULT myCtlWnd::OnVBInitPropPopup(WPARAM wp, LPARAM lp )
  347. {                 
  348.     switch( wp ) {
  349.         case IPROP_BIGICON_ABOUT: {
  350.             myPopupWnd *x = new myPopupWnd(this, IPROP_BIGICON_ABOUT);
  351.             
  352.             if( x ) 
  353.                 return( MAKELONG(x->m_hWnd,0) ); 
  354.             else 
  355.                 return NULL;
  356.             }            
  357.             break;
  358.             
  359.         case IPROP_BIGICON_SHADOWCOLOR: {
  360.             myPopupWnd *x = new myPopupWnd(this, IPROP_BIGICON_SHADOWCOLOR);
  361.             
  362.             if( x ) 
  363.                 return( MAKELONG( x->m_hWnd, 0) );            
  364.             else    
  365.                 return NULL;
  366.             }   
  367.             break;
  368.     }
  369.  
  370.     //
  371.     // Call the parent method.
  372.     //
  373.     
  374.     return CVBCtlWnd::OnVBInitPropPopup(wp, lp);
  375. }        
  376.  
  377. //
  378. // myCtlWnd::OnCreate
  379. //
  380. // Set the default values for user defined properties.
  381. //
  382. int myCtlWnd::OnCreate(LPCREATESTRUCT lpCreateStruct)
  383. {
  384.     if (CVBCtlWnd::OnCreate(lpCreateStruct) == -1)
  385.         return -1;
  386.  
  387.     VBSetControlProperty(m_hCtl, IPROP_BIGICON_BKCOLOR, 
  388.         ::GetSysColor(COLOR_WINDOW));
  389.         
  390.     VBSetControlProperty(m_hCtl, IPROP_BIGICON_SHADOWWIDTH, 4 );
  391.     VBSetControlProperty(m_hCtl, IPROP_BIGICON_SHADOWCOLOR,
  392.         RGB(0,0,0));
  393.                 
  394.     return 0;
  395. }
  396.  
  397. //
  398. // myCtlWnd::OnNcDestroy
  399. //
  400. // Free memory used by picture objects.
  401. //
  402. void myCtlWnd::OnNcDestroy()
  403. {
  404.     CVBCtlWnd::OnNcDestroy();
  405.  
  406.     //
  407.     // Release the picture.
  408.     //
  409.     
  410.     LPBIGICON pict;
  411.     
  412.     pict = (LPBIGICON)LpBigIconDEREF(m_hCtl);
  413.     VBFreePic(pict->hpicPict);    
  414. }
  415.  
  416. //
  417. // myPopupWnd::DoPopupDlg
  418. //
  419. // Virtual function that must be overloaded with your implementation.
  420. //
  421. void myPopupWnd::DoPopupDlg()
  422. {
  423.     ASSERT_VALID(this);
  424.     
  425.     switch( m_iProperty ) {
  426.         case IPROP_BIGICON_ABOUT: {
  427.                 CVBDialog    *AboutDlg = new CVBDialog(IDD_ABOUTDLG, this);
  428.                 AboutDlg->DoModal();    
  429.                 delete AboutDlg;
  430.             }
  431.             break;
  432.                         
  433.         case IPROP_BIGICON_SHADOWCOLOR: {
  434.                 CVBColorDialog     *ShadowColorDlg = new CVBColorDialog(0,0, this );
  435.                 if( ShadowColorDlg->DoModal() == IDOK)
  436.                     SetControlProperty((LONG) ShadowColorDlg->GetColor());
  437.                 delete ShadowColorDlg;
  438.             } 
  439.             break;
  440.     }
  441. }
  442.  
  443.